﻿Partial Class Document

    Public Class Section
        Public Document As Document
        Public Header As Body
        Public Detail As Body

        Sub New()
            Header = New Body With {.Section = Me}
            Detail = New Body With {.Section = Me}
        End Sub

        Sub [End]()
            Document.EndSection()
        End Sub

        Sub Print(ByVal Info As PrintInfo)
            Header.Print(Info)
            Detail.Print(Info)
            Info.EndPage()
        End Sub

    End Class

End Class
